Sub 통합()

    Dim 경로 As String
    Dim 파일 As String
    Dim WB As Workbook
    Dim r As Long
    
    경로 = ThisWorkbook.Path & "\샘플\"
    파일 = "분당점.xlsx"

    Range("F6", Range("M6").End(xlDown)).Delete Shift:=xlUp

    For r = 6 To 9

        If Range("C" & r).Value = "O" Then

            Set WB = Workbooks.Open(Filename:=경로 & 파일)
                Range("A2:H13").Copy
            
            ThisWorkbook.Activate
                Range("F6").Select
                ActiveSheet.Paste
                
            Application.CutCopyMode = False
            
            WB.Close SaveChanges:=False
        
        End If
    
    Next
    
End Sub